10 N = 10
20 DIM A%(N)
30 FOR I = 1 TO N
40 PRINT "Введи элемент массива №"; I;
50 INPUT A%(I)
60 NEXT I
70 S = 0: KOL = 0
80 FOR I = 1 TO N
90 IF A%(I) MOD 3 = 0 THEN S = S + A%(I): KOL = KOL + 1
100 NEXT I
110 IF KOL = 0 THEN PRINT "Кратных трем нет": GOTO 130
120 PRINT "Среднее арифметических чисел, кртаных трем = "; S / KOL
130 END